10 POKE53281,0:POKE53280,0:POKE646,1
20 PRINT"[147]FROSTY THE SNOW MAN"
30 PRINT"ARRANGEMENT BY"
40 PRINT"HOWARD STRASBERG"
110 L1=54272:L2=54279:L3=54286
120 H1=L1+1:H2=L2+1:H3=L3+1
130 V1=L1+4:V2=L2+4:V3=L3+4
140 POKE54296,15
150 POKEV1+1,9:POKEV1+2,16
160 POKEV2+1,96:POKEV2+2,36
170 POKEV3+1,102:POKEV3+2,0
200 POKEV1,16:POKEV2,16:POKEV3,16
210 READS:IFS=-1THEN290
220 READX1,Y1,X2,Y2,X3,Y3
230 IF X1 THEN POKEH1,X1:POKEL1,Y1:POKEV1,17
240 IF X2 THEN POKEH2,X2:POKEL2,Y2:POKEV2,17
250 IF X3 THEN POKEH3,X3:POKEL3,Y3:POKEV3,17
260 FORG=1TOINT(S/2.45):NEXTG
270 GOTO200
290 FORQ=54272TO54296:POKEQ,0:NEXT:GOTO1800
300 REM SET 1
310 DATA 512,25,177,8,147,0,0
315 DATA 512,12,216,10,205,0,0
320 DATA 768,21,154,12,216,10,205
325 DATA 256,22,227,0,0,0,0
330 DATA 512,25,177,10,205,0,0
335 DATA 1024,34,75,15,70,12,216
340 DATA 256,32,94,10,205,0,0
345 DATA 256,34,75,0,0,0,0
350 DATA 512,38,126,11,114,0,0
355 DATA 512,34,75,17,37,14,107
360 DATA 512,32,94,0,0,0,0
365 DATA 512,28,214,11,114,0,0
370 DATA 768,25,177,10,205,0,0
375 DATA 256,17,37,0,0,0,0
380 DATA 512,12,216,0,0,0,0
385 DATA 256,32,94,10,205,0,0
390 DATA 256,34,75,0,0,0,0
395 DATA 512,38,126,11,114,0,0
400 DATA 512,34,75,17,37,14,107
405 DATA 512,32,94,0,0,0,0
410 DATA 256,28,214,11,114,0,0
415 DATA 256,28,214,0,0,0,0
420 DATA 256,25,177,17,37,10,205
425 DATA 512,34,75,0,0,0,0
430 DATA 768,21,154,17,37,12,216
435 DATA 256,25,177,0,0,0,0
440 DATA 256,28,214,0,0,0,0
441 REM START DIFFERENT REPEAT OFF
445 DATA 512,25,177,16,47,9,159
450 DATA 512,22,227,0,0,0,0
455 DATA 512,21,154,16,47,12,216
460 DATA 512,22,227,0,0,0,0
465 DATA 1536,25,177,17,37,12,216
470 REM START SET 2
475 DATA 512,25,177,8,147,0,0
480 DATA 512,12,216,10,205,0,0
485 DATA 768,21,154,12,216,10,205
490 DATA 256,22,227,0,0,0,0
495 DATA 512,25,177,10,205,0,0
500 DATA 1024,34,75,15,70,12,216
505 DATA 256,32,94,10,205,0,0
510 DATA 256,34,75,0,0,0,0
515 DATA 512,38,126,11,114,0,0
520 DATA 512,34,75,17,37,14,107
525 DATA 512,32,94,0,0,0,0
530 DATA 512,28,214,11,114,0,0
535 DATA 768,25,177,10,205,0,0
540 DATA 256,17,37,0,0,0,0
545 DATA 512,12,216,0,0,0,0
550 DATA 256,32,94,10,205,0,0
555 DATA 256,34,75,0,0,0,0
560 DATA 512,38,126,11,114,0,0
565 DATA 512,34,75,17,37,14,107
570 DATA 512,32,94,0,0,0,0
575 DATA 256,28,214,11,114,0,0
580 DATA 256,28,214,0,0,0,0
585 DATA 256,25,177,17,37,10,205
590 DATA 512,34,75,0,0,0,0
595 DATA 768,21,154,17,37,12,216
600 DATA 256,25,177,0,0,0,0
605 DATA 256,28,214,0,0,0,0
606 REM START DIFFERENT REPEAT OFF
610 DATA 512,25,177,17,37,9,159
615 DATA 512,22,227,0,0,0,0
620 DATA 512,21,154,16,47,12,216
625 DATA 512,19,63,11,114,0,0
630 DATA 1536,17,37,10,205,0,0
632 REM START SET 3
635 DATA 512,17,37,8,147,0,0
640 DATA 512,28,214,11,114,0,0
645 DATA 512,28,214,11,114,0,0
650 DATA 512,34,75,14,107,0,0
655 DATA 512,34,75,14,107,0,0
660 DATA 512,32,94,12,216,0,0
665 DATA 512,28,214,11,114,0,0
670 DATA 512,25,177,10,205,0,0
675 DATA 512,21,154,12,216,0,0
680 DATA 512,22,227,9,159,0,0
685 DATA 512,28,214,11,114,0,0
690 DATA 512,25,177,10,205,0,0
695 DATA 512,22,227,9,159,0,0
700 DATA 1024,21,154,8,147,0,0
705 DATA 512,8,147,0,0,0,0
710 DATA 512,21,154,0,0,0,0
715 DATA 512,19,63,16,47,12,216
720 DATA 512,19,63,0,0,0,0
725 DATA 512,25,177,9,159,0,0
730 DATA 512,25,177,0,0,0,0
735 DATA 512,32,94,12,216,0,0
740 DATA 512,32,94,0,0,0,0
745 DATA 512,38,126,16,47,13,156
750 DATA256,38,126,0,0,0,0
755 DATA 256,32,94,0,0,0,0
760 DATA 512,38,126,17,37,14,107
765 DATA 512,34,75,0,0,0,0
770 DATA 512,32,94,17,37,12,32
775 DATA 512,28,214,0,0,0,0
780 DATA 1024,25,177,16,47,12,216
785 DATA 1024,25,177,22,227,16,47
786 REM START SET 4
790 DATA 512,25,177,8,147,0,0
795 DATA 512,12,216,10,205,0,0
800 DATA 768,21,154,12,216,10,205
805 DATA 256,22,227,0,0,0,0
810 DATA 512,25,177,10,205,0,0
815 DATA 1024,34,75,15,70,12,216
820 DATA 256,32,94,10,205,0,0
825 DATA 256,34,75,0,0,0,0
830 DATA 512,38,126,11,114,0,0
835 DATA 512,34,75,17,37,14,107
840 DATA 512,32,94,0,0,0,0
845 DATA 512,28,214,11,114,0,0
850 DATA 768,25,177,10,205,0,0
855 DATA 256,17,37,0,0,0,0
860 DATA 512,12,216,0,0,0,0
865 DATA 256,32,94,10,205,0,0
867 DATA 256,34,75,0,0,0,0
870 DATA 512,38,126,11,114,0,0
875 DATA 512,34,75,17,37,14,107
880 DATA 512,32,94,0,0,0,0
885 DATA 256,28,214,11,114,0,0
890 DATA 256,28,214,0,0,0,0
895 DATA 256,25,177,17,37,10,205
900 DATA 512,34,75,0,0,0,0
905 DATA 768,21,154,17,37,12,216
910 DATA 256,25,177,0,0,0,0
915 DATA 256,28,214,0,0,0,0
920 REM START DIFFERENT REPEAT OFF
925 DATA 512,25,177,17,37,9,159
930 DATA 512,22,227,0,0,0,0
935 DATA 512,21,154,16,47,12,216
940 DATA 512,19,63,11,114,0,0
945 DATA 1536,17,37,10,205,0,0
950 DATA 512,25,177,8,147,0,0
955 DATA 512,12,216,10,205,0,0
960 DATA 768,21,154,12,216,10,205
965 DATA 256,22,227,0,0,0,0
970 DATA 512,25,177,10,205,0,0
975 DATA 1024,34,75,15,70,12,216
980 DATA 256,32,94,10,205,0,0
985 DATA 256,34,75,0,0,0,0
990 DATA 512,38,126,11,114,0,0
995 DATA 512,34,75,17,37,14,107
1000 DATA 512,32,94,0,0,0,0
1005 DATA 512,28,214,11,114,0,0
1010 DATA 768,25,177,10,205,0,0
1015 DATA 256,17,37,0,0,0,0
1020 DATA 512,12,216,0,0,0,0
1025 DATA 256,32,94,10,205,0,0
1030 DATA 256,34,75,0,0,0,0
1035 DATA 512,38,126,11,114,0,0
1040 DATA 512,34,75,17,37,14,107
1045 DATA 512,32,94,0,0,0,0
1050 DATA 256,28,214,11,114,0,0
1055 DATA 256,28,214,0,0,0,0
1060 DATA 256,25,177,17,37,10,205
1065 DATA 512,34,75,0,0,0,0
1070 DATA 768,21,154,17,37,12,216
1075 DATA 256,25,177,0,0,0,0
1080 DATA 256,28,214,0,0,0,0
1085 REM START DIFFERENT REPEAT OFF
1090 DATA 512,25,177,16,47,9,159
1095 DATA 512,22,227,0,0,0,0
1100 DATA 512,21,154,16,47,12,216
1105 DATA 512,22,227,0,0,0,0
1110 DATA 1536,25,177,17,37,12,216
1115 REM START SET 2
1120 DATA 512,25,177,8,147,0,0
1125 DATA 512,12,216,10,205,0,0
1130 DATA 768,21,154,12,216,10,205
1135 DATA 256,22,227,0,0,0,0
1140 DATA 512,25,177,10,205,0,0
1145 DATA 1024,34,75,15,70,12,216
1150 DATA 256,32,94,10,205,0,0
1155 DATA 256,34,75,0,0,0,0
1160 DATA 512,38,126,11,114,0,0
1165 DATA 512,34,75,17,37,14,107
1170 DATA 512,32,94,0,0,0,0
1175 DATA 512,28,214,11,114,0,0
1180 DATA 768,25,177,10,205,0,0
1185 DATA 256,17,37,0,0,0,0
1190 DATA 512,12,216,0,0,0,0
1195 DATA 256,32,94,10,205,0,0
1200 DATA 256,34,75,0,0,0,0
1205 DATA 512,38,126,11,114,0,0
1210 DATA 512,34,75,17,37,14,107
1215 DATA 512,32,94,0,0,0,0
1220 DATA 256,28,214,11,114,0,0
1225 DATA 256,28,214,0,0,0,0
1230 DATA 256,25,177,17,37,10,205
1235 DATA 512,34,75,0,0,0,0
1240 DATA 768,21,154,17,37,12,216
1245 DATA 256,25,177,0,0,0,0
1250 DATA 256,28,214,0,0,0,0
1255 REM START DIFFERENT REPEAT OFF
1260 DATA 512,25,177,17,37,9,159
1265 DATA 512,22,227,0,0,0,0
1270 DATA 512,21,154,16,47,12,216
1275 DATA 512,19,63,11,114,0,0
1280 DATA 1536,17,37,10,205,0,0
1285 REM START SET 3
1290 DATA 512,17,37,8,147,0,0
1295 DATA 512,28,214,11,114,0,0
1300 DATA 512,28,214,11,114,0,0
1305 DATA 512,34,75,14,107,0,0
1310 DATA 512,34,75,14,107,0,0
1315 DATA 512,32,94,12,216,0,0
1320 DATA 512,28,214,11,114,0,0
1325 DATA 512,25,177,10,205,0,0
1330 DATA 512,21,154,12,216,0,0
1335 DATA 512,22,227,9,159,0,0
1340 DATA 512,28,214,11,114,0,0
1345 DATA 512,25,177,10,205,0,0
1350 DATA 512,22,227,9,159,0,0
1355 DATA 1024,21,154,8,147,0,0
1360 DATA 512,8,147,0,0,0,0
1365 DATA 512,21,154,0,0,0,0
1370 DATA 512,19,63,16,47,12,216
1375 DATA 512,19,63,0,0,0,0
1380 DATA 512,25,177,9,159,0,0
1385 DATA 512,25,177,0,0,0,0
1390 DATA 512,32,94,12,216,0,0
1395 DATA 512,32,94,0,0,0,0
1400 DATA 512,38,126,16,47,13,156
1405 DATA256,38,126,0,0,0,0
1410 DATA 256,32,94,0,0,0,0
1415 DATA 512,38,126,17,37,14,107
1420 DATA 512,34,75,0,0,0,0
1425 DATA 512,32,94,17,37,12,32
1430 DATA 512,28,214,0,0,0,0
1435 DATA 1024,25,177,16,47,12,216
1440 DATA 1024,25,177,22,227,16,47
1445 REM START SET 4
1450 DATA 512,25,177,8,147,0,0
1455 DATA 512,12,216,10,205,0,0
1460 DATA 768,21,154,12,216,10,205
1465 DATA 256,22,227,0,0,0,0
1470 DATA 512,25,177,10,205,0,0
1475 DATA 1024,34,75,15,70,12,216
1480 DATA 256,32,94,10,205,0,0
1485 DATA 256,34,75,0,0,0,0
1490 DATA 512,38,126,11,114,0,0
1495 DATA 512,34,75,17,37,14,107
1500 DATA 512,32,94,0,0,0,0
1505 DATA 512,28,214,11,114,0,0
1510 DATA 768,25,177,10,205,0,0
1515 DATA 256,17,37,0,0,0,0
1520 DATA 512,12,216,0,0,0,0
1525 DATA 256,32,94,10,205,0,0
1527 DATA 256,34,75,0,0,0,0
1530 DATA 512,38,126,11,114,0,0
1535 DATA 512,34,75,17,37,14,107
1540 DATA 512,32,94,0,0,0,0
1545 DATA 256,28,214,11,114,0,0
1550 DATA 256,28,214,0,0,0,0
1555 DATA 256,25,177,17,37,10,205
1560 DATA 512,34,75,0,0,0,0
1565 DATA 768,21,154,17,37,12,216
1570 DATA 256,25,177,0,0,0,0
1575 DATA 256,28,214,0,0,0,0
1580 REM START DIFFERENT REPEAT OFF
1585 DATA 512,25,177,17,37,9,159
1590 DATA 512,22,227,0,0,0,0
1595 DATA 512,21,154,16,47,12,216
1600 DATA 512,19,63,11,114,0,0
1605 DATA 1536,17,37,10,205,0,0
1610 DATA 256,25,177,8,147,0,0
1615 DATA 256,25,177,0,0,0,0
1620 DATA 512,25,177,12,216,10,205
1625 DATA 512,25,177,0,0,0,0
1630 DATA 512,25,177,12,216,10,205
1635 DATA 256,28,214,8,147,0,0
1640 DATA 256,25,177,0,0,0,0
1645 DATA 512,25,177,12,216,10,205
1650 DATA 512,25,177,0,0,0,0
1655 DATA 512,25,177,12,216,10,205
1660 DATA512,28,214,8,147,0,0
1665 DATA512,25,177,12,216,10,205
1670 DATA 512,21,154,0,0,0,0
1675 DATA512,25,177,12,216,10,205
1680 DATA 1536,19,63,8,23,0,0
1685 DATA 512,12,216,11,114,0,0
1690 DATA 256,25,177,9,159,0,0
1695 DATA 256,25,177,0,0,0,0
1700 DATA 512,25,177,12,216,11,114
1705 DATA 512,25,177,0,0,0,0
1710 DATA 512,25,177,12,216,11,114
1715 DATA 256,28,214,9,159,0,0
1720 DATA 256,25,177,0,0,0,0
1725 DATA 512,25,177,12,216,11,114
1730 DATA 512,25,177,0,0,0,0
1735 DATA 512,25,177,12,216,11,114
1740 DATA 256,25,177,8,23,0,0
1745 DATA 256,25,177,0,0,0,0
1750 DATA 512,25,177,12,216,11,114
1755 DATA 512,28,214,0,0,0,0
1760 DATA 512,32,94,22,227,9,159
1765 DATA 1024,34,75,21,154,9,147
1770 DATA 512,0,0,12,216,0,0
1775 DATA 512,0,0,8,147,0,0
1780 DATA -1
1800 POKE53281,6:POKE53280,14:POKE646,14
1805 PRINT"[147]RUN"
1810 PRINT"":END